MaxiMac 2000 December/MaxiMac 109.iso/KitWeb/Wanadoo/Media/Present.dcr/Scripts_76_Round.ls

Text File | 2000-10-10 | 599 b | 28 lines

on mouseEnter me
  if sprite(the currentSpriteNum).member.name = "RoundGris" then
    cursor(280)
    sprite(the currentSpriteNum).member = member("RoundBlanc")
  end if
end

on mouseLeave me
  cursor(-1)
  if sprite(the currentSpriteNum).member.name = "RoundBlanc" then
    sprite(the currentSpriteNum).member = member("RoundGris")
  end if
end

on mouseDown me
  if sprite(the currentSpriteNum).member.name = "RoundBlanc" then
    cursor(290)
    aEspPlace()
  end if
end

on mouseUp me
  if sprite(the currentSpriteNum).member.name = "RoundBlanc" then
    cursor(280)
    aEspDest()
  end if
end